APPE NT) I X -cou tin lie d 



APPENDIX-coctinued 



KP.i 

XI IS ; 

KDO; 

MKb-u; 

RPB-O: 

XYHomcJ-O; 

ldlcTM-O; 

rTimi-O; 

JS •lNTTGL 

JS •INTTWL 

EN: 

retr r.na *iSt\ ■•-••-*•••*•*« 
rem *** laerui Fnction Wtli.ni 
ran *"* Capyngbi 1996 
rein *** AJi rtfjlu ictritii. 

*WELD1 

hx: 

RPB-O; 

MG *MMe!d Cveie S:»rieJ- 

ER'-WeJdFE: 

OE-.l; 

res? 

TL WtlrfTU 

GN WtidGN: 

SP W.ldSP; 

AC W.ldAC; 

DC WeldOC: 

KP WeldKP: 

KI WcMKl: 

KD IVrldXD; 

Diw-PPR'WeMRcv. 

DwU-Diit-fPPRTrigRcvj; 

PR Ditt 

TW SOC: 

BGX 

MG -Scruh . . " 
rem Suub uan 
AT 0: 

ATScrubTM: 
rem Bum mn 
CB1: 

MG -Bum 
AO Di»li 
retr WT.SflO 
rem Forge Sun 
CB :: 
SB 1; 

MG 'Fore* . . ■ 
AMX; 

KP W.ldKPI; 
*T ror b -<TM: 
Si 2 

MO "WfelfJ crmplel;"' 
*T IOC 00 
KP VelJKP. 
EN. . 

rem Sad -WELD: 

rerr. 

•CYCLE 

J S »HU.\I fc_\ > HoiUf.i-.' 
JS *WELLil: 
XO 'IDLE.: 
EN 

icir. Had #CYCLt 

*MCT1ME 

MG 'Poiiucn timtcut 
RE 

iwitad WELD, CYCLE MODULE 



•1MTCL 
rem 

tea. GLOBAL VARIABLES 

rem 

rem 

nr. ?L»LSES PER INCH 

PPI-10O0.00CO00 

tew J»F.S PFR RF.V 

PPR.7S«i .22*49 



rem Timer Tick* Per Second 
TPS-1000 

rem losoi Volu Per Uim 

miMU'M-Li.JUULUU 

rVlJ»PSI-3.0000O3 

rem Output VUli* Per Utii 

0\1lPRP M-2.0COOO0 

OVltTPSI-XOOOOOO 

rem Sample Rou 

S»npltRi-)00 

rem Number of 10 

rem Homing rnliowtfig errnr cnunu 

HomeFE-aroO: 

HomeVel-lOOO: 

HtfntAu*500: 

IIameDec-500: 

HomtF-J; 

Homel-.CC; 

Hom*D->. 

GHomcVej.jonO; 

FTVei-]000. 

rem Software limit* 

XFLimu-lLCOO 

YFUoui-ll.COO 

XBLimu— 0.100 

YB Limit— 0.100 

lovenIO-1 

rem Mm Move Vfckue* 

MuXMVel-10 

MaxXMAcc-40 

MkXMDcc~«0 

EN 

rem 

rem W«Jd tun «ihu 
•INTTWL 

rem taenia Fnctioe Welding lac 
w* Copyright IWft 
rem -*• AJ] tli hu reserved 
rem 

reai Weld specific vtrtcni 

WeidilPM-1750 

ScrjbTM-200C- 

ForgcTM-4000; 

WelciRevS.10 

OepreeW) 

TrifRev-0.5 

rem 

rem PID piaju 
WeloAec-lX 

W«ldKP-0.j 

WeldKP:-] 

WeleKJ«0.t7 

WeldKt>-«<J- 

WcldFE/f.j.5 

WeIcTL-9.9984 

WeldCN-20 

rem 

rem CilcuJaxed panouun 

WeldR*v- ( DepT«e«;360UW € |dJl»vS; 

WelcSK^U eldWM 'IVH 

WelCAC-0VddAcc-pPR,/t,0: 

Wel<:DC-fWd<JDec*PPR)/60; 

WeiCFE.WtldFErfPFR; 

rem 

rem Ead wcle.eu -*■••--•--... 

EN 

rem Esd »LSTTLW • - 
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rerr ••■ Incrua Fnciwn WtWmj In; 

tea: Cjpytifctot 1990 

rem '"All right*. re«iveC 

re a; 

rem 

rttr. *** taenia Friction Wcld:B£ lac 
reir. *" Copyright 1906 
rem *"* All ripbn tenrved 
refr 

rem •MAIS 

res: Fail u toe main program uik 
«MA1S 

js -unit 

XO 'IDLE.1 
•MAI SI 

3? •CYCLER ISllK: 
JS •HUMt.HCB.]. 

js «wfi rii.RPR*:: 

JP •MAIS] 
ES- 

rem Cad »MAIS 

rem *** Incru* Friction WcIAdj: lie 
rem *** Capyri^hi 1996 
reir. *"* All tight* re termed 
rcir. 

rem *" 'HOME 

res*. Ho arc tuneuon 

• HOME 

HX 1; 

IIPB-0; 

MO -HOME* 

XYHomed-0; 

HomcEF-l: 

KrvlN-ir->rtrl.S-(i, 

ER HomtFE: 

AC HomeAcc. 

DC HomeDew; 

KT Homer: 

Kl Hocid: 

KD HomcD: 

IL 2;VT 1; 

•HOMFX 

MO 'Homiat ..."*: 
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TO. M±iu noi of how switch 
MO "Gti of 'Lome twuct .. .**; 

**WFX2JP *WFXTi3;iNl2}-0-. 
■AT 500 

STX.AMXJT •HOMDC_£INi:*K>. 
MG -Off Home »wtwt . . . - : 
rem Find torn* LS 

MG "I coking for doom witch ...**; 
#WFXl 

JP *WFXJ.t?tN12j-:uXPo.- TPX: 
MO "Home switch found . . . ~; 
rem 

tor. Go back to borne po*uion 
SP FTVel: 

PA X?o*:BO-.AMJDPO; 

MO "Slide* Homed ... - 

•HOMEl 

XYHomcd-1; 

XO •IDLE.: 

EN 

rem Cad #HOMC 

rem "•* tccni* Friction Ucldoag la; 
rem Copyright 1396 
rem "•* AJ1 ricbu reserved 
rem 

rem •POSERR 

rem Poiiiioc io)lou,*iaf error 

•POSERR 

ZS; 

JS •HALT; 

MG "FOLLOWING ERROR" 

Si»iMte-"FOLERR" 

ZS Jp •MAIN': 

RF. 

rem Ead •POSERR • 
rem " ' t&enia Frictiao Welding toe 
rem "* Copyii^hi 1996 
rem ** " All ngbu reserved 
rem 

rem "** •HALT 

rem Bring i mouos to ■ nop 
•HAIT 

SuLMig-"HALT" 
ER--1C0O.1I O AB 1:-AT 1000: 
SH.CS. HX l:MO; 
OP235; 

tern IS "CLEAR IO. 

MG "Servo prcgraci halted ..." 

ES 

rem enc «HA1J" *** * 

rcrr •** IrertiN Fnctton lfcetd*n£ In." 

rem *** Copyright 1996 

rem "** AJ] ri^hu rc»crvcJ 

rem. 

•IDLE 

Idl.TM-TIME 
•IDLE J 

JK •U.lLfcU IMfc-l(JlelM<]lJJ J: 
ITime-rTime-]; 

MG "Servo Ready . . . ~JTime{Fo} 

JP IDLE: 

OK 

rem Ead »IDLE * 

rem "* (tenia Friction Welding lac 
rem "** Copyright 1996 
rem "** All ngbu reserved 

•tSTT 

SB l:SB i.Sh 4; 
SB 5;SB G.SB 7.SB d; 

eh*-: coo. 

OE--1. 
TL I; 

GS l: 
ac *.ro. 

DC 5COi 



